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Subroutine SB11 (Lun) 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVE 
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® 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ONLY JIN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE  * 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OUNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. . 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE + 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. . 
* 

* 

® 

® 

* 

*® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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Author: Sharon Reynolds Creation date: 20-Jan-1981 


Functional description: 


This module produces the error log report for the SB11 
DECdataway 1/0 subsystem. 


Modified by: 


v03-003 sence Sha Reynolds, 28-Mar-1984 
Changed the call to "ocesi _OWNUIC to ORBSL_OWNER. 
v03-002 ete Sharon A. Reynolds, 23-Jun-1983 
Changed the carriage control in the ‘format’ statements 
for use with ERF. 
v03-001 SARO035 Sharon A. Reynolds, 8-Jun-1983 
Removed brief/cryptic support. 
v02-004 gr o0ns Brian Porter, 23-NOV-1981 
Minor edit. 
v02-003 BP0003 Brian Porter, 05-NOV-1981 
Added ‘device attention’ support. 
v02-002 BP0002 Brian Porter, 235-JUL-1981 
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Added new uba routines. 
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re 16 
Ib-5e -1984 00:15: VAX-11 FORTRAN V3.4-56 Page 2 
-Sep- :2e: DISKSVMSMASTER: CERF ..SRCJSB811.FOR;1 
sep71obe $4253:93 sk$ TER:L 1s811 . 
p08 C 
00 C v02-001 BP0001 Brian Porter, 15=JUL-1981 
0060 C Misc. changes made by S. Reynolds in response to input 
goes & from W. Saltz. Added call to DHEAD1. 
9068 
Include ‘SRC$:MSGHDR.FOR /NOLIST’ 
; Include ‘SRC$:DEVERR.FOR /NOLIST’ 
0225 Byte Lun 
Q $ Byte hdr_map_valid 
8 Byte dat_map_ valid 
8 Byte att_uc 
8 Byte port_id ‘ 
0231 Integer* csr0 
0 ¢ Integer* csri 
8 Integer* csr2 
$5 5 Integer *4 COMPRESS4 
0236 Integer*4 COMPRESSC 
0237 Integere4 no_irp 
0238 Integer*4 field 
0239 Integere4 unit 
0240 Integer*4 devdepend 
0241 Integer*4 devsts 
0 $§ Integer*4 tt_retry_cnt 
024 Integer*4 tt_protocol_err 
0244 Integer*4 tumble_table 
9245 Integer*4 registers 
0 ré Integer*4 err_sts 
024 Integer*4 ubs_reg} (8:3) 
0248 Integers4 uba_reg2(0:2) 
BSep Integere4 dataway_addr 
0251 Parameter timeout = 96 
OS3¢ Parameter rt80 = 1 
025 Parameter dyt01 = 2 
0254 Parameter dpm01 = 4 
9522 Parameter dis = 8 
0589 Character*83 tt_protocol_id(0:7) 
0258 Character*15 tumble_tbl (5:7) 
8 59 Character*35 He Bd 
60 Character*29 func (0:7) 
0261 Character*22 csr0_1(5:7) 
0 o¢ Character*52 csré_1(6:7) 
026 Character*6 device(1:8) 
64 Character*46 dvsts(0:11) 
65 ' 
$7 C Make the register save area of the error log buffer available 
8 68 C to this module 
HS 
6 71 Equivalence (err_sts,EMBSL_DV_REGSAV(0)) 
0272 Equivalence (registers, EMBSL_Bv_REGSAV(1)) 
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-Sep-1984 
73 Equivalence (devdepend,EMBSL_DV_REGSAV(2)) 
7h Equivalence (devsts, m8$t DV-REGSAV(3)) 
75 Equivalence (uba_reg],EMBSL_Bv_REGSAV(4)) 
re Equivalence (uba_reg2,EMBSL_DV_REGSAV(7)) 
78 C 
tp ; Define text for the tumble table 
81 
Hy Data tt_protocol_id(0) /*PREMATURE END OF MESSAGE'/ 
8 Data tt_protocol_id(1) /*BAD ADDRESS'/ 
Be Data St protocol. td(¢ /"ILLEGAL RESPONSE CONTROL CODE'/ 

5 Data tt_protocol_id(5) /*SEQUENCE BIT WRONG-NO REPEAT: COMMAND SENT'/ 
My] Data tt_protocol_id(4) /*ILLEGAL MSG-LENGTH ON:NON ‘'SI'* RESPONSE'/ 
8 ata tt protocol_id(5) /"ILLEGAL RESPONSE OF ‘"SI''!WHEN NOT 
88 1 REQUESTEB*/ 

89 Data tt _protocol id(6) /"ILLEGAL RESPONSE OF *"RNR'’ TO!*'RI'® 
90 1 COMMAND N READY TO:RECEIVE NOT REQUESTED'/ 

1 Data tt_protocol id(7) /"ILLEGAL RESPONSE OF *'RNR*' TO! *'RPS'' 
4 1 COMMAND QGHEN READY TO!RECEIVE NOT REQUIRED'/ 

94 Data tumble_tbi(5) /*PROTOCOL ERROR*'/ 

5 Data homme tp eb; /*TIMEOUT ERROR®'/ 

Data tumble _tbi(7)  /*CRC ERROR*'/ 


Define text for error number 


$3333 


wn 


Data err_num(0) /"LATENCY ERROR=NO DATA! TRANSFERRED'/ 
soe Data err_num(1) /"LATENCY ERROR=DATA TRANSFERRED‘ / 
5 Data ore punta /*MEMORY TIMEOUT ERROR’ 
306 Data err_num(3) /*ONLINE TRANSITION'/ 
4 Data err_num(4) /"OFFLINE TRANSITION'/ 
Data err_num(5) /"DATA OVERRUN ERROR'/ 
Data ory munis /*WRITE FUNCTION TIMEQUT'/ 
10 Data err_num(7) /*UNSOLICITED DATA'/ 
geek rama) got 
1 Data err_num(10) /"NO DATA TRANSFERRED'/ 
14 Data err_num(11) /"INVALID TYPE 2 TUMBLE: TABLE ENTRY'/ 
i Baie Srremintdg} AUP ROME Sag, HMMS’ 7 
ata err_num 
1 Data err_num(14) /*INVALID DEVICE UNIT NUMBER'/ 
18 Data err_num(15) /*NON-EXISTENT MEMORY'/ 
1 Data ory mans 13) /*PORT WAIT QUEVE TIMEOUT'/ 
320 Data err_num(17) /"USER INITIATED SHUTDOWN’ / 
321 Data ere mantis) /*CONTROLLER STARTUP*/ 
§ Data err_num(19) /* INVALID TYPE 1 TUMBLE‘ TABLE ENTRY'/ 
Data err_num(20) /"DRIVER DATA STRUCTURE ERROR'/ 
4 Data err_num(21) /*RESERVED'/ 
5 Data err_num( $3 /*RESERVED'/ 
$ Data err_num(25) /*RESERVED'/ 
Data err_num(24) /*AST NOT DELIVERABLE'/ 
8 Data err_num(25) /"ENABLE LOGGIAG OF DECDATAWAY:ERROR'/ 
9 Data err_num(26) /"DISABLE LOGGING OF DECDATAWAY:ERROR'/ 
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Data err_num( 


= 7) /*RESERVED'/ 
1 Data err_num( $ /*RESERVED'/ 
§ Data err_num(29) /*DRIVER INITIATED SHUTDOWN'/ 
Data err_num(50) /*RESERVED'/ 
: Data err_num(31) /*RESERVED'/ 
. . ¢ Define text for bits in CSRO 
0 
0 1 Data func (0) /*NO-OP®* 
¢ Data func (1) /"INITIATE TRANSFER OUT*'/ 
8 Data func (2) /*INITIATE TRANSFER IN®'/ 
4 Data func (3) /"SEND TRANSPARENT DATA®' 
0345 Data func (4) /*SEND TRANSPARENT DATA-NO CRC#'/ 
0 $ Data func (5) /*RESERVED®'/ 
0 Data func (6) /*RESERVED®'/ 
ne Data func (7) /*CANCEL OPERATION®'/ 
0350 Data csr0_1(5) /*HARDWARE ERROR*'/ 
O32) Data csr0_1(6) /* DONE INTERRUPT ENABLE®'/ 
0 28 Data csr0_1(7) /*DONE®'/ 
235 
0354 
0356 C Defi f bits in CSR2 
ne text for s in 
O33) 
0359 Data csr2_1(6) /*PORT AVAILABLE INTERRUPT ENABLE®*'/ 
: Data csr2_1(7) /*PORT LOCK#'/ 
o383 ¢ 
0364 ; Define the devices currently allowed on the DECdataway 
O86? 
8 Data device(1) /*RTB0e'/ 
368 Data device(2) /*DYTO1#'/ 
0369 Data device(4) /*DPMO1#'/ 
0 a Data device(8) /*DIS#'/ 
7 
| 7 C Define the text for the bit assignments in ucb$w_devsts 
75 
A} Data dvsts(0) /*REQUEST IN THE PORT-WAIT-QUEUE®*'/ 
037 Data dvsts(1) /*CANCEL IN PROGRESS*'/ 
A 4 Data qvetss¢: /*TRANSFER OPERATION IS REQUESTED*'/ 
Data dvsts(35) /*UNIT IS ACTIVE®#'/ 
Data dvsts(4) /*SYSTEM ERROR LOGGING ENABLED*'/ 
381 Data dvsts(5) /*LOGGING OF ON/OFF LINE ENABLED*'/ 
386 Data Gusts (9) /*USER ERROR LOG IS ENABLED®'/ 
Data dvsts(7) /* INHIBIT ERROR LOGGING®?'/ 
he Data dvsts(8) /*UNIT IS SHUTDOWN®'/ 
5 Data dvsts(9) /*REQUEST HAS TIMED OUT®*'/ 
386 Data dvsts(10) /*RESERVED®'/ 
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Data dvsts(11) /*REQUEST ONLINE®'/ 
Construct the error log report header 


Call FRCTOF (lun) 
call dhead! (lun,"UBA DEC DATAWAY') 


Extract necessary information for later use 


Hdr_map_valid = LIBSEXTZV (30,1,EMBSL_DV_NUMREG) 
Dat_map_valid = LIBSEXTZV (31,1, EMBSL_DV_NUMREG) 
No_irp = LIBSEXTZV (0,16, EMBSL_DV_NUMREG) 
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Decode and output the bits in the csr0O register 


CsrO = LIBSEXTZV (0,8,registers) 

Call LINCHK (Lun,2) 

Write (lun,30) csr0 

Format (/* *,T8,'CSRO',124,78.8) 

Field = LIBSEXTZV (0,3,csr0) 

Call LINCHK (Llun,1) 

Write (Lun, 40) func (field) 

Format (" °,140,*FUNCTION = *,A<COMPRESSC (func(field))> ) 


Call OUTPUT (Lun,csr0,csr0_1,5,5,7,'0") 

Decode and output the bits in the csri register 
Csrl = LIBSEXTZV (8,8,registers) 

Call LINCHK (Lun,2) 


Write (lun,50) csrl 
Format (/°" *,T8,'CSR1',124,78.8) 


Decode and output the bits in the csr2 register 
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Csr2 = LIBSEXTZV (16,8, registers) 
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4 
4 : 
Call LINCHK (lun,2) 

Write (lun,55) csr2 

Format (/' ',18,'CSR2°,124,78.8) 

Dataway_addr = LIBSEXTZV (0,6,csr2) 

Call LINCHK (Llun,1) 

Write (Lun ,60) Crt over addr 

Format (* *,140,'"DECDATAWAY ADDRESS = ', 

1 I<COMPRESS4 (dataway_addr)>,'.') 

Call OUTPUT (Lun,csr2,csr2_1,6,6,7,'0") 

Decode and output the mapping information for the header and/or 
data buffers 

If (no_irp .eq. 10) then 

If (hdr_map_valid .eq. 1) then 

Call LINCHK (Lun,3) 

Write (Lun, 

Format (/° *,*HEADER BUFFER MAPPING INFORMATION',/) 

call uba_mapping (lun,-1,uba_reg1(0)) 

call uba_mapping (lun,-1,uba_reg1(1)) 


call vecmapreg (lun,uba_reg1(2)) 
endif 


If (dat_map_valid .eq. 1) then 

Call LINCHK (Lun,2) 

Write (lun,80) 

Format (/' *,*DATA BUFFER MAPPING INFORMATION') 
call uba_mapping (Llun,-1,uba_reg2(0)) 

call uba_mapping (lun,-1,uba_reg2(1)) 

call vecmapreg (lun,ubs_reg2(2)) 

Endif 

Endif 


Decode and output the ‘dataway’ protocol and error status 
information 


Call LINCHK (Lun,2) 
Write (lun,90) 
Format (/° *,*DECDATAWAY PROTOCOL AND STATUS INFORMATION’) 


Call LINCHK (Lun,2) 
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oO 


Write (lun,100) err_sts 
100 Format (/" *,T8,"ERROR STATUS',124,78.8) 


Field = LIBSEXTZV (0,5,err_sts) 
Call OUTPUT_MLINES (Llun,err_num(field),'!',32) 


Find out if the tumble table entry is valid and output it when 
necessary 


OOO 


2 or . 

2 field .eq. 8) then 

Call LINCHK (Lun,1) 

Write (Lun, 
110 Format (° °,140,'eeeeneere TUMBLE TABLE *eeeeeeree') 

Tumble_table = LIBSEXTZV (16,8,err_sts) 

If (field .eq. 8) then 

Tt_retry_cnt = LIBSEXTZV (0,2,tumble_table) 

Write (Lun, 120) tt_retry_cnt + 1 
120 Format (‘ T40,REPEAT COUNT = ' 

1 1<COMPRESS4 

Write (Lun, 121 
121 Format (° *) 
$e Call OUTPUT (Lun,tumble_table,tumble_tbl,5,5,7,'0") 
36 Tt_protocol_err = LIBSEXTZV (5,1,tumble_table) 
If (tt_protocol_err .eq. 1) then 
Field = LIBSEXTZV (2,3, tumble_table) 


9 

' 

§ Sot) SUTPUT LINES (Lun, tt_protocol_id(field),':',32) 
n 
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01 

08 
08 
OF 

8 

9 

0 

1 

§ f (field .eq. 7 
5 

6 

7 

8 

9 

0 

1 

g 

4 

5 

6 

7 

8 

9 ° 
9 (tt_retry_cnt)>,".'5 
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Endif 
If (field .eq. 7) then 
Call LINCHK (Lun,2) 
Write (lun,130) tumble table 
130 Format (/' *,140, "DATA = ',24.4) 
Endif 


50 
3 
58 
54 Call LINCHK ( 
22 
59 


ooo 


lun 
Write (lun,140) 


1 
. (' 1=1,34) 
140 Format (° °,140,34 
Endif 
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Unit = LIBSEXTZV (5,6,err_sts) 


Call LINCHK (lun,1) 
Write (Lun, 1393 nit 
150 Format (' §, 740, UNIT = *, I<COMPRESS4 (unit)>,'.") 


Decode the ‘SOFTWARE INFORMATION’ and return to ERRPRT 
If there was no 1/0 cies not all of the data included under 
e 


software information will valid, so only output the software 
information that is val 
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call Linchk (lun,1) 


geteet hyn, 135? 
155 format(' *,:) 


if (no_irp .ne. 4) then 

if Cemb$w_hd_entry .ne. 98) then 

call ucb$b_ertcnt (Lun,emb$b_dv_ertcnt) 
call ucb$b_ertmax (Lun,emb$b_dv_ertmax) 
endif 

call orb$l_owner (Lun,emb$l_dv_ownuic) 
call ucb$l_char (lun,emb$l_dv_char) 
call ucb$w_sts (lun,emb$w_dv_sts) 


woo 
a] 
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call ucb$l_opcnt (Lun,emb$l_dv_opcnt) 
call ucb$Sw_errcnt (lun,emb$w_dv_errcnt) 


Att_ucbO = LIBSEXTZV (31,1, sSoudeqene? 
Field = LIBSEXTZV (4,4,devdepend 
Port_id = LIBSEXTZV (0.4,devdepend) 


Call LINCHK sun, 2) 
Write (lun, 160) 
160 Format (7"" "18, "UCBSL DEVDEPEND' , 124, 28.8) 
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The port id for the RTBOx indicates whether the device is 
an RT801, RTB03, RTBOS. Determine if the device is an RT80x 
and if so a. up the port id to the proper value to output 


Fatt INCHK (Lun,1 
If (field .eq. 7¢B0) then 


OOOO 


td ad od ex ed 
fwnr-o 


If (port_id .eq. 2) then 
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Port_id = port_id + 1 


ise if (port_id .eq, 3) then 
Bort id = port. id ri) 
Endif 


Write (Lyn, 16 


device 
165 Format (' 


5) device(field) .port_id 
40,A<COMPRESSC (device(field))>,11) 


Else if (field .eq. dyt01) then 


Device is a DYTO1 , it has only one port so output the 
device type 


Write (Lun, 167) device(fiel 
167 Format (" *,1460,A<COMPRESSC 


OOO 


d) 
(device(field))>) 


SSSEFS 


Else if (field .eq. dpm01 
.or. 
2 field .eq. dis) then 
The device is either a DPMO! or Distributed Intelligent Subsystem, 


both currently support four ports (0-3). Output the device type 
and the port Taenti fication ° 4 ad 


—- AHOOon 


Write (tun, 170) device(field) ,port_id 
70 Format (* *,140,A<COMPRESSC (device(field))>, 
1° = port #',1f) 


endif 
If (att_ucbO .eq. 1) then 
Call LINCHK (Lun,1) 
write (lun, 1 
175 Format (° °,140,"ATTENTION UCBO") 
Endif 
Call LINCHK (Lun,2) 
Write (Lun,180) devsts 
180 Format (/° *,18,UCBSW_DEVSTS*,124,78.8) 


SoS ee SSeS ESET TT ET TOC 
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Call OUTPUT (Lun,devsts,dvsts,0,0,11,'0") 
if (no_irp .ne. 4) then 

if (embSu_hd_entry .ne. 98) then 

call Linchk (lun,1) 

write(lun,155) 

call sbll_qio (lun,emb$w_dv_ func) 

call irp$Sw_bent (lun,emb$w_dv_bcnt) 


~ 
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ie, call irpSw_boff (lLun,emb$w_dv_boff) 
Le call irp$l_pid (lun,emb$\_dv_rapid) 
7 call irp$q_iosb (lun,emb$l_dv_iosb1) 
7 endif 
7 endif 
0680 
0681 Return 
0682 End 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 2095 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 616 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
g SLOCAL 3804 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
EMB 512 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 7027 


ENTRY POINTS 
Address Type Name 


0-00000000 $811 
VARIABLES 

Address Type Name Address Type Name 
ATT_UCBO ~QOO00AEC 13 CSRO 
CSRT ~ROR RR AES I*2 CSR2 
DATAWAY_ ADDR -00000A L*1 DAT_MAP_VALID 
DEVDEPERD -00 f I*4 DEVSTS 
EMBSB_DV_CLASS -00000010 L*l EMBSB_DV_ERTCNT 
EMBSB_DV_ERTMAX - 3 L*1 EMBSB_DV_NAMLNG 
EMBSB_DV_SLAVE - Le] EMBSB_DV_TYPE 
EMBSL_DV_CHAR = I*4 EMBSL_DV_10SB1 
EMBSL_DV_I0SB2 - I*4 EMBSL_DV_MEDIA 
EMBSL_DV_NUMREG - E I*4 EMBSL_DV_OPCNT 
EMBSL_DV_OWNUIC - E I*4 EMBSL_DV_ROPID 
EMBSL_HD_SID - F CHAR EMBST_DV_NAME 
EMBSW_DV_BCNT - 2 I*2 EMBSW_DV_BOFF 
EMBSW_DV_ERRCNT - C I*2 EMBSW_DV_FUNC 
EMBSW_DV_STS - A . EMBSW_DV_UNIT 
EMBSW_HD_ENTRY - *2 EMBSW_HD_ERRSEQ 
ERR_STS - I*4 FIELD 
HDR_MAP_VALID - I*4 |] 
LUN - 4 I*4 NO_IRP 


K 1 
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Brett aae 92:53:83 «— WNdimSOASteN PERE chcoser1.ror:1 °29° 
-QO0000AEA L*1 PORT_ID -00000056 I*4 REGISTE 
Mdina it I*4 TT_PROTOCOL_ERR 3-009 $38 I*4 TT_RETRY_CNT 
$R0ap debe 1*4 TUMBLE_TABLE - Sb0ere I*4 UNTT 
ARRAYS 
Address Type Name Bytes Dimensions 
-0000080D CHAR CSRO_1 66 (5:7) 
mitt 14 CHAR CSR2-1 64 (6:7) 
~R000088F CHAR DEVICE 48 (8) 
“8eseeeg5 ErM" Pie a5 Sh, 
~00000052 I*4 EMBSL_DV_REGSAV 420 (0:104) 
~90000e¢S CHAR ERR NON Le 1120 (6231) 
~00000725 CHAR FUNT 399 (6:3 
CHAR TT _PROTOCOL_ID 664 (0:7) 
-00000298 CHAR TUMBLE _TBL 45 (5:7) 
-00000062 I*4 UBA_REG! 12 (0:6) 
3-Q0000006E I*4 UBA_REG2 12 (0:2) 
LABELS 
Address Label Address Label Address Label Address Label Address Label Address’ Label 
1-00000051 30° 1-00000063 40° 1-0000007C 50° 1-Q0000008E . 1=Q000000A0 60° 1-000000C6 70° 
1-O00000EF 80° 1-00000115 90° 1-00000146 100° 1-00000160 110° 1-0000018A 120° 1-Q00001AA 121° 
1-O00001AE 130° 1-000001C1 140° e's 44 9h 150° 1-000001E3 155° 1-000001E8 160° 1-00000205 165° 
1-0000021 167° 1-0000021F 170° 1-00000238 175° 1-0000024E 180° 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name Type Name Type Name 
1*4 COMPRESS4 1*4 COMPRESSC DHEAD1 FRCTOF IRPS$L_PID IRP$Q_10SB 
IRP$W_BCNT IRP$W_BOFF I*4 LIBSEXTZV LINCHK ORBSL_OWNER TPuT 
OUTPUT_MLINES $811 G10 UBA_MAPPING UCB$B_ERTCNT UCBSB_ERTMAX UCBSL_CHAR 
UCBSL_OPCNT UCBSO_ERRCNT uCBSW_STS VECMAPREG 
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Subroutine $B11_Q10 (lun,emb$w_dv_ func) 


gezese 


B90! include ‘src$:qiocommon.for /nolist' 
0 Lf; 
027 byte lun 
0274 
8 Ne integert*2 emb$w_dv_ func 
8 a integer*4 qiocode(0:1,0:63) 
0279 
gseo 
0281 
404 if (qiocode(0,0) .eq. 0) then 
pees Qiocode(1,24) = Xloc(1O$_WRITECSR) 
aeee Qiocode(1,25) = Xloc(IO$_READCSR) 
pees Qiocode(1,26) = Xloc(1O$_SETCHAR) 
Bsae Qiocode(1,32) = Xloc(1O$_WRITELBLK) 
94 Qiocode(1,33) = Xloc(lO$_READLBLK) 
Ose Qiocode(1,34) = Xloc(IO$_ABORT) 
ose Qiocode(1,35) = Xloc(1O0$_SETMODE) 
3578 Qiocode(1,36) = Xloc(10$_WRITEWTHBUF ) 
Bene Qiocode(1,37) = Xloc(10$_READWTHBUF ) 
Oa0¢ Qiocode(1,39) = Zloc(10$_SENSEMODE) 
she Qiocode(1,40) = Xloc(10$_WRITEBUFNCRC) 
$00 Qiocode(1,41) = Zloc(1O$_READWTHXBUF ) 
$05 Qiocode(1,48) = X%loc(10$_WRITEVBLK) 
311 Qiocode(1,49) = ZXloc(1O$_READVBLK) 
1 do 10,i = 0,63 
313 
“8 aiocode(0,i) = 33 
317 if (qiocode(1,i) .eq. 0) then 
18 iocode(1,i) = Zloc(qio_string) 
4 endit — . 
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0321 10 continue 

8 ¢ endif 

0324 call irp$w func (lun,emb$w_dv_ fun 

O° 2 1 qiocode(0,libSextzv(0, 6,enbSw_ r func))) 
0327 return 

0328 

0329 end 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 197 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 $LOCAL 54 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
3 QIOCOMMON 1247 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 2000 


ENTRY POINTS 
Address Type Name 


0-00000000 $811_Q10 
VARIABLES 
Address Type Name Address Type Name 
AP-000000088 I1*2 EMBSW_DV_FUNC $= 00008 00 I*4 | 
3-0000044 HAR 10$_ABORT -0000034D CHAR IO$_ACCESS 
3-000003C2 CHAR IO$_ACPCONTROL -000004B3 CHAR I0$_AVAILABLE 
-00.00297 CHAR IO$S_CLEAN mst 4 CHAR I0$_CREATE 
-00000385 CHAR I0$_ ~DEACCESS -00000393 CHAR IO$_DELETE 
-0000026D CHAR IO$_DIA -00000065 CHAR IO$_DRVCLR 
misiesls eh CHAR 10$_ $33 -Q00000A9 CHAR IO$_ERASETAPE 
6 CHAR IO$_FOR - 71 CHAR IOS_INITIALIZE 
14 CHAR I0$- nope DMCODE - Al CHAR IO$_MODIFY 
-000003E2 CHAR IO$_MOUN -00000000 CHAR IO$_NOP 
; CHAR IO$_OFFSET -000 gee CHAR I0$_PACKACK 
O CHAR I0$_QST -000 5 F CHAR IO$_RDSTATS 
1 CHAR IO$_READCSR -00000169 CHAR IO$_READHEAD 
CHAR I0$_READLBLK -0000015F CHAR I10$_READPBLK 
CHAR IO$_READPRESET - si 195 CHAR IO$_READTRACKD 
A CHAR IO$~READVBLK - 45A CHAR IO0$_READWTHBU 
2: CHAR 10$_READWTHXBUF - 04D CHAR IO$_RECAL 
C CHAR IO$-RELEASE - 1AB CHAR IO$_REREADN 
1B8 CHAR JO$-REREADP - CA CHAR IOS_RETCENTER 
E6 CHAR IO$_REWIND - 9? CHAR 10$_REWINDOFF 
- FC CHAR JO$"SEARCH - 4 CHAR 10$_SEEK 


i —— 
a 
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31 CHAR 10$_SENSECHAR -00000309 CHAR I0$_SENSEMODE 
| CHAR IOS"SETCHAR - 6 B8 CHAR IO$~SETCLOCK 
CHAR JO$"SETCLOCKP . DD CHAR IO$-SETMODE 
gD CHAR IOS"SKIPFILE -00 FA CHAR IO$-SKIPRECORD 
CHAR IO$"SPACEFILE 90 96 O& CHAR IO$"SPACERECORD 
7 CHAR JOS"STARTDATA -00 Bt CHAR IOS-STARTDATAP 
7 CHAR JOS~STARTMPROC -0000020F CHAR IOS"STARTSPNDL 
9 CHAR 1O$"STOP =0000000D CHAR IO$"UNLOAD 
| 3-00000668 CHAR 10$_WRITEBUFNCRC ~OO00011E CHAR IO$-WRITECHECK 
-90000164 CHAR 1O$_WRITECHECKH ~QOO003FF CHAR IOS"WRITECSR 
| -00000153 CHAR 108_WRITEHEAD 90000¢n2 CHAR 10$"WRITELBLK 
~00000247 CHAR IO$"WRITEMARK -90000 14 CHAR 10$-WRITEOF 
~9000012A CHAR 10$~WRITEPBLK -000001C9 CHAR IOS"WRITERET 
3-0000017E CHAR IOS"WRITETRACKD 3-00000326 CHAR I0$"WRITEVBLK 
3-00000448 CHAR 10$"WRITEWTHBUF 3-00000257 CHAR IOS"WRTTMKR 
AP-00000004@ L*1 LUN 3-000004A1 CHAR QIO"STRING 
ARRAYS 
Address Type Name Bytes Dimensions 
2-00000000 1*4 QIOCODE 512 (0:1, 0:63) 
LABELS 
Address Label 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
IRP$wW_FUNC I*4 LIBSEXTZV 


COMMAND QUALIFIERS ME 
FORTRAN /LIS=LIS$:S811/0BJ=0BJ$:SB11 MSRC$:SB11 


Aon Le pes pao ty ET Loe eeaeeri ow? 


MO 

MO 

MO 

/DEBUG= (NOS YMBOL$, TRACEBA 4 
/STANDARD= (NOS YNTAX , NOSOURCE MO 
/SHOW= (NOPREPROCESSOR ,NOINCLODE , MAP) MO 
/F77 /NOG_FLOATING /14 /OPTIMIZE /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 a] 
OR 

COMPILATION STATISTICS 7 
Run Time: 8.68 seconds PA 
Elapsed Time: 38,05 seconds PA 
Page Faults: § 2 PA 
Dynamic Memory: 21 pages = 


MENT CORPORATION 
AND PROPRIETARY 


AH-BI1i3A-SE 
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EQUIPMENT CORPORATION 
NTIAL AND PROPRIETARY 


-BT13A-SE 
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